home *** CD-ROM | disk | FTP | other *** search
- object Settings: TSettings
- Left = 403
- Top = 242
- BorderStyle = bsDialog
- Caption = 'Settings'
- ClientHeight = 311
- ClientWidth = 374
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 361
- Height = 265
- ActivePage = TabSheet1
- TabIndex = 0
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'General'
- object chbStartUp: TCheckBox
- Left = 8
- Top = 8
- Width = 145
- Height = 17
- Caption = 'Run on windows startup'
- TabOrder = 0
- end
- object chbCalculate: TCheckBox
- Left = 8
- Top = 28
- Width = 137
- Height = 17
- Caption = 'Calculate cost'
- TabOrder = 1
- OnClick = chbCalculateClick
- end
- object chbUserMode: TCheckBox
- Left = 8
- Top = 48
- Width = 153
- Height = 17
- Caption = 'Used user mode'
- TabOrder = 2
- OnClick = chbUserModeClick
- end
- object btnPassword: TButton
- Left = 208
- Top = 59
- Width = 97
- Height = 25
- Caption = 'Set password...'
- TabOrder = 4
- OnClick = btnPasswordClick
- end
- object chbPassword: TCheckBox
- Left = 8
- Top = 68
- Width = 201
- Height = 17
- Caption = 'Set password to protect your settings'
- TabOrder = 3
- OnClick = chbPasswordClick
- end
- object chbFlyingWindow: TCheckBox
- Left = 8
- Top = 88
- Width = 97
- Height = 17
- Caption = 'Flying window'
- TabOrder = 5
- Visible = False
- OnClick = chbFlyingWindowClick
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'Tariffs'
- ImageIndex = 1
- object Label4: TLabel
- Left = 8
- Top = 8
- Width = 17
- Height = 13
- Caption = 'ISP'
- end
- object cmbISP: TComboBox
- Left = 32
- Top = 5
- Width = 225
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnSelect = cmbISPSelect
- end
- object btnEditISP: TButton
- Left = 264
- Top = 5
- Width = 73
- Height = 21
- Hint = 'Edit ISP'
- Caption = '...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = btnEditISPClick
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 30
- Width = 337
- Height = 193
- TabOrder = 2
- object Label3: TLabel
- Left = 8
- Top = 16
- Width = 57
- Height = 13
- Caption = 'Default cost'
- end
- object Label2: TLabel
- Left = 88
- Top = 170
- Width = 103
- Height = 13
- Caption = 'for start of connection'
- end
- object Label1: TLabel
- Left = 8
- Top = 170
- Width = 18
- Height = 13
- Caption = 'Pay'
- end
- object cmbDefCost: TComboBox
- Left = 72
- Top = 13
- Width = 177
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnSelect = cmbDefCostSelect
- end
- object btnEditTariff: TButton
- Left = 256
- Top = 13
- Width = 73
- Height = 21
- Hint = 'Edit tariff type'
- Caption = '...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = btnEditTariffClick
- end
- object btnAddT: TButton
- Left = 254
- Top = 56
- Width = 75
- Height = 25
- Caption = 'Add'
- TabOrder = 2
- OnClick = btnAddTClick
- end
- object btnEditT: TButton
- Left = 254
- Top = 88
- Width = 75
- Height = 25
- Action = ctnUpdateTariff
- Caption = 'Edit'
- TabOrder = 3
- end
- object btnDelT: TButton
- Left = 254
- Top = 120
- Width = 75
- Height = 25
- Caption = 'Delete'
- TabOrder = 4
- OnClick = btnDelTClick
- end
- object TreeView1: TTreeView
- Left = 8
- Top = 40
- Width = 241
- Height = 121
- Color = clWhite
- HideSelection = False
- Indent = 19
- MultiSelect = True
- MultiSelectStyle = [msControlSelect, msShiftSelect, msSiblingOnly]
- ReadOnly = True
- TabOrder = 5
- OnDblClick = TreeView1DblClick
- end
- object edtPayConn: TCurrencyEdit
- Left = 32
- Top = 166
- Width = 49
- Height = 21
- Alignment = taLeftJustify
- AutoSize = False
- DecimalPlaces = 4
- DisplayFormat = '0.0000'
- TabOrder = 6
- OnExit = edtPayConnExit
- end
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Users'
- ImageIndex = 2
- object lstUser: TListBox
- Left = 8
- Top = 8
- Width = 241
- Height = 217
- ItemHeight = 13
- TabOrder = 0
- OnDblClick = lstUserDblClick
- end
- object btnAddUser: TButton
- Left = 262
- Top = 16
- Width = 75
- Height = 25
- Caption = 'Add'
- TabOrder = 1
- OnClick = btnAddUserClick
- end
- object btnEditUser: TButton
- Left = 262
- Top = 48
- Width = 75
- Height = 25
- Action = ctnUpdateUser
- Caption = 'Edit'
- TabOrder = 2
- end
- object btnDelUser: TButton
- Left = 262
- Top = 80
- Width = 75
- Height = 25
- Caption = 'Delete'
- TabOrder = 3
- OnClick = btnDelUserClick
- end
- object btnPasswordUser: TButton
- Left = 262
- Top = 192
- Width = 75
- Height = 25
- Caption = 'Password'
- TabOrder = 4
- OnClick = btnPasswordUserClick
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Traffic graph'
- ImageIndex = 3
- object Label5: TLabel
- Left = 8
- Top = 8
- Width = 24
- Height = 13
- Caption = 'Type'
- end
- object cmbGraphType: TComboBox
- Left = 8
- Top = 24
- Width = 145
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- Text = '3D'
- OnChange = cmbGraphTypeChange
- Items.Strings = (
- '3D'
- 'Filled'
- 'Line'
- 'Scatter')
- end
- object chbVerticalAxis: TCheckBox
- Left = 8
- Top = 56
- Width = 145
- Height = 17
- Caption = 'Show vertical axis'
- TabOrder = 1
- OnClick = chbVerticalAxisClick
- end
- object chbHorizontalAxis: TCheckBox
- Left = 8
- Top = 80
- Width = 145
- Height = 17
- Caption = 'Show horizontal axis'
- TabOrder = 2
- OnClick = chbHorizontalAxisClick
- end
- end
- end
- object btnOk: TButton
- Left = 200
- Top = 280
- Width = 75
- Height = 25
- Caption = 'Ok'
- ModalResult = 1
- TabOrder = 1
- end
- object btnApply: TButton
- Left = 112
- Top = 280
- Width = 75
- Height = 25
- Action = ctnApply
- TabOrder = 2
- end
- object btnCancel: TButton
- Left = 288
- Top = 280
- Width = 75
- Height = 25
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object ActionList1: TActionList
- Left = 8
- Top = 280
- object ctnUpdateTariff: TAction
- Caption = 'UEdit'
- OnExecute = EditTClick
- OnUpdate = ctnUpdateTariffUpdate
- end
- object ctnUpdateUser: TAction
- Caption = 'UpdateUser'
- OnExecute = btnEditUserClick
- OnUpdate = ctnUpdateUserUpdate
- end
- object ctnApply: TAction
- Caption = 'Apply'
- OnExecute = btnApplyClick
- OnUpdate = ctnApplyUpdate
- end
- end
- end
-